home *** CD-ROM | disk | FTP | other *** search
/ GeoSafari Geography / GeoSafari Geogra.iso / pc / geogeog / 00017_old check PC CD.ls < prev    next >
Encoding:
Text File  |  1999-04-20  |  335 b   |  12 lines
  1. on findCDLetter
  2.   returnString = #driveNotFound
  3.   repeat with testLetter = charToNum("D") to charToNum("Z")
  4.     testName = getNthFileNameInFolder(numToChar(testLetter) & ":\XOBJWIN\", 1)
  5.     if testName <> EMPTY then
  6.       returnString = numToChar(testLetter) & ":\"
  7.       exit repeat
  8.     end if
  9.   end repeat
  10.   return returnString
  11. end
  12.